home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / petman.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  166 lines
  1. 1 GOTO192
  2. 2 S=0:P1=3:P2=100
  3. 4 LV=.92:F=1
  4. 7 PRINT"[147][129]                                       "
  5. 8 PRINT"                                       "
  6. 9 PRINT"  [146]................[129]    [146]................[129] "
  7. 10 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  8. 11 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  9. 12 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
  10. 13 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  11. 15 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  12. 16 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
  13. 17 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
  14. 18 PRINT"      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
  15. 19 PRINT"      .[129]  [146].......[129]  [146][158]    [129]  [146].......[129]  [146].     "
  16. 20 PRINT"[129]      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
  17. 21 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
  18. 22 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
  19. 23 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  20. 24 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  21. 25 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
  22. 26 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  23. 27 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  24. 28 PRINT"  [146]................[129]    [146]................[129] "
  25. 29 PRINT"                                       "
  26. 30 PRINT"                                       "
  27. 31 PRINT"SCORE:[146]";S
  28. 32 NX=39:FORNY=1TO22:IFNY<>11THENPOKEFNB(0),160:POKEFNC(0),8
  29. 33 NEXTNY:A=0:POKE1063,160:POKE55335,8
  30. 34 ZX=65:FORY=1TOGN
  31. 35 NX=INT(RND(1)*6+17)
  32. 36 NY=11
  33. 37 IFFNA(0)<>32GOTO35
  34. 38 B(Y)=FNA(0):POKEFNB(0),ZX
  35. 39 RX(Y)=NX:RY(Y)=NY:D(Y)=8
  36. 40 NEXTY
  37. 41 N=O+L+42:N0=N:POKEN,C(15)
  38. 42 R=PEEK(56320)AND15:R2=T(R)
  39. 46 N0=N+R2
  40. 47 N1=PEEK(N0)
  41. 48 IFN0=N8THENN0=N0+38:GOTO47
  42. 49 IFN0=N9THENN0=N0-38:GOTO47
  43. 50 IFN1=160THENN0=N:N1=32
  44. 51 IFN1=42THENGOSUB104
  45. 52 IFN1=46THENS=S+P1:A=A+1:PRINT"[145]"S
  46. 53 IFN1=65GOTO84
  47. 54 IFN1=88THEN111
  48. 57 Q=N-O
  49. 58 PY=INT(Q/L):PX=Q-PY*L
  50. 59 U=0:FORY=1TOGN
  51. 60 IFRND(1)<LVGOTO68
  52. 61 RX=RX(Y):IFRX=0GOTO68
  53. 62 NX=RX+SGN(PX-RX)
  54. 63 NY=RY(Y)+SGN(PY-RY(Y))
  55. 64 C%=FNA(0):IFC%=ZXGOTO68
  56. 65 IFC%(C%)THENU=Y:Y=GN:GOTO68
  57. 66 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):POKESC+54272,D(Y)
  58. 67 B(Y)=C%:RX(Y)=NX:RY(Y)=NY:D(Y)=PEEK(FNC(0)):POKEFNC(0),7:POKEFNB(0),ZX
  59. 68 NEXTY:IFUTHENY=U:GOTO82
  60. 69 IFZX=88THENGOSUB123
  61. 70 POKEN,32:POKEN0,C(R):POKES1+23,3:IFABS(N1-44)>3THEN75
  62. 71 X=129:Y=40:IFN1=42THENX=33:Y=300:POKES1+23,15
  63. 72 POKES1+3,0:POKES1+3,X:POKES1,15:FORX=1TOY:NEXT:POKES1+3,128
  64. 75 POKES1+23,0:POKEN0,O(R):N=N0
  65. 76 IFA<275GOTO42
  66. 77 LV=LV-.02-F/50:P1=P1*2:P2=P2+100
  67. 78 F=F+1
  68. 79 POKES1+23,15:FORX=20TO50:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  69. 80 FORX=250TO220STEP-1:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  70. 81 GOTO7
  71. 82 IFZX=88GOTO116
  72. 83 REM SUICIDE
  73. 84 POKES1+23,15:FORK=1TO8
  74. 85 FORX=30TO80STEP2:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  75. 86 IFK/2<>INT(K/2)THEN89
  76. 87 PRINT"CAPTURE[146]":POKEN,214:POKES1+3,0:POKES1+3,33:POKES1,15:GOTO90
  77. 88 POKES1+3,0:POKES1+3,33:POKES1,158:GOTO90
  78. 89 PRINT"CAPTURE":POKEN,86:POKES1+3,0:POKES1+3,33:POKES1,50
  79. 90 NEXTK
  80. 91 POKES1+23,0
  81. 92 PRINT"[147]","  P E T M A N"
  82. 93 PRINT,"[129]YOUR SCORE:  "S""
  83. 94 IFHS=0THENHS=S:GOTO98
  84. 95 IFS>HSTHENPRINT,"[158] A NEW HIGH SCORE! ":HS=S:GOTO98
  85. 96 PRINT,"HIGH SCORE:  "HS
  86. 98 PRINT"DO YOU WANT TO PLAY AGAIN?"
  87. 99 GETW$:IFW$=""THEN99
  88. 100 IFW$="N"THENEND
  89. 101 IFW$<>"Y"THEN99
  90. 102 GOTO2
  91. 103 REM EAT A PILL
  92. 104 ZX=88:FORY=1TOGN
  93. 105 NX=RX(Y):NY=RY(Y):IFNX=0GOTO107
  94. 106 POKEFNB(0),ZX
  95. 107 NEXTY
  96. 108 T0=TI+720
  97. 109 RETURN
  98. 110 REM CHOMP A GHOST
  99. 111 U=0:FORY=1TOGN
  100. 112 IFN0=RX(Y)+RY(Y)*L+OTHENU=Y:Y=GN
  101. 113 NEXTY:IFUTHENY=U:GOTO116
  102. 114 STOP
  103. 115 REM: WIPE A GHOST
  104. 116 S=S+P2:PRINT"[145]"S
  105. 117 PRINT"[145]"S
  106. 119 POKES1+23,15:FORX=150TO250STEP6:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  107. 120 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):N0=N:N1=B(Y):POKESC+54272,D(Y):D(Y)=8
  108. 121 RX(Y)=0
  109. 122 GOTO47
  110. 123 IFTI>T0GOTO133
  111. 124 Y=T0-TI:IFY>180THEN139
  112. 125 IFY>50THEN131
  113. 126 FORY=1TOGN:RX=RX(Y):IFRXGOTO130
  114. 127 NX=Y+17:NY=11:IFFNA(0)=65GOTO129
  115. 128 POKEFNB(0),65
  116. 129 POKEFNB(0),160
  117. 130 NEXTY
  118. 131 POKES1,230:POKES1+14,130:POKES1+23,15:POKES1+3,21:FORY=1TO200:NEXT
  119. 132 POKES1+3,20:FORY=1TO200:NEXT:POKES1+14,0:POKES1+23,0:RETURN
  120. 133 ZX=65:FORY=1TOGN
  121. 134 IFRX(Y)GOTO136
  122. 135 RX(Y)=Y+17:RY(Y)=11:B(Y)=160
  123. 136 NX=RX(Y):NY=RY(Y)
  124. 137 POKEFNB(0),ZX
  125. 138 NEXTY
  126. 139 RETURN
  127. 140 POKE53280,9:POKE53281,9
  128. 141 PRINT"[147][142]    [167][207][183][205] [170][183][183]  [183][208][207][183] [182][205]  [206][181]  [206][183][205]  [182][205]  [181]
  129. 142 [153]"    THEN(null)AND(null) +TAN    +SGN  ABS (null)(null) INT  (null)ANDSQR  ABS (null) INT
  130. 143 PRINT"    [167][180]   [170][175][175]   [170][180]  [182]    [181]  [181] [170]  [182]  [205][181]
  131. 145 [153],"DEFWRITTEN FOR THE PET
  132. 146 PRINTTAB(17)"BY
  133. 147 [153],"PAUL GUMMERSALL
  134. 148 PRINT,"[150]ADAPTED FOR THE 64
  135. 149 [153][163]17)"BY
  136. 150 PRINT,"STEVEN DARNOLD
  137. 151 [153],"P.O. BOX 201
  138. 152 PRINT,"ALEXANDRA, NEW ZEALAND";
  139. 153 FORI=1TO4000:NEXT
  140. 157 PRINT"[147]","  P E T M A N"
  141. 158 PRINT"[129]EAT THE LITTLE DOTS IN THE MAZE AS FAST
  142. 159 [153]"AS YOU CAN.  THERE ARE FOUR GUARDS THAT
  143. 160 PRINT"LOOK LIKE THIS: [158][193][129].   IF ONE CATCHES YOU,
  144. 161 [153]"YOU ARE FINISHED.
  145. 164 PRINT"USE THE JOYSTICK TO MOVE.  IT SHOULD
  146. 165 [153]"BE PLUGGED INTO PORT 2.
  147. 170 PRINT"PRESS SHIFT[146] FOR MORE INSTRUCTIONS.";:WAIT653,1
  148. 172 PRINT"[147]","  P E T M A N
  149. 173 [153]"FORYOU CAN TURN THE TABLES ON THE GUARDS BY
  150. 174 PRINT"EATING AN ENERGIZER (*[129]).  THEN, FOR TEN
  151. 175 [153]"SECONDS THE GUARDS ARE WEAKENED AND YOU
  152. 176 PRINT"CAN EAT THEM.  THEY LOOK LIKE THIS [158][216][129].
  153. 177 [153]"YOU GET A BIG BONUS FOR EVERY GUARD YOU EAT.
  154. 181 PRINT"PRESS SHIFT[146] TO BEGIN.":WAIT653,1,1:WAIT 653,1:RETURN
  155. 192 DIM C%(255),C(15),O(15),RX(4),RY(4),T(15)
  156. 193 O=1024:S1=54273:L=40:POKE54277,10
  157. 194 C%(60)=1:C%(62)=1:C%(22)=1:C%(1)=1:C%(93)=1:C%(64)=1:C%(87)=1:C%(81)=1
  158. 195 FORX=5TO15:READC(X):NEXTX:DATA60,22,60,,1,62,62,,1,22,87
  159. 196 FORX=5TO15:READO(X):NEXTX:DATA64,93,64,,93,64,64,,93,93,81
  160. 198 DEF FNB(Z)=O+NX+L*NY:DEF FNA(Z)=PEEK(FNB(0)):DEF FNC(Z)=54272+FNB(0)
  161. 199 GN=4
  162. 200 GOSUB140
  163. 201 T(13)=L:T(11)=-1:T(7)=1:T(14)=-L:T(9)=L:T(10)=-1:T(5)=1:T(6)=-L
  164. 202 N8=O+11*L:N9=N8+39
  165. 203 GOTO2
  166.